#!
use strict;
my $Usage = "Usage:\n\tperl enumfiles.pl dirname";
if(@ARGV!=1)
{
	print $Usage;
	exit;
}
sub EnumFiles
{
	my($DirName)=@_;
	
	my $command = "dir $DirName\\*.* /b/a:a";
	my @list = `cmd.exe /c $command`;
	my @files;
	@files = (@files,"$DirName\\$_") foreach @list;
	chomp @files;
	return @files;
}
print join ("\n",EnumFiles $ARGV[0]);
print "\nSuccessed;"